Power Bytes: Money & Finance

home *** CD-ROM | disk | FTP | other *** search

/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / HyperCard Files / AppointmentMaster™ v1.1.1 / stack.txt < prev

Wrap

Text File | 1988-06-01 | 20.8 KB | 360 lines

-- stack: in.1 -- format: 8 (HyperCard 1) -- flags: 0x0 (none) -- protect password hash: 0 -- maximum user level: 5 (scripting) -- window: Rect(x1=0, y1=0, x2=0, y2=0) -- screen: Rect(x1=0, y1=0, x2=0, y2=0) -- card dimensions: w=0 h=0 -- scroll: x=0 y=0 -- background count: 2 -- first background id: 2621 -- card count: 5 -- first card id: 3049 -- list block id: 3218 -- print block id: 3532 -- font table block id: 0 -- style table block id: 0 -- free block count: 0 -- free size: 0 bytes -- total size: 84864 bytes -- stack block size: 9728 bytes -- created by hypercard version: 0x00000000 -- compacted by hypercard version: 0x00000000 -- modified by hypercard version: 0x00000000 -- opened by hypercard version: 0x00000000 -- patterns[0]: 0x0000000000000000 -- patterns[1]: 0x8000000008000000 -- patterns[2]: 0x8800220088002200 -- patterns[3]: 0x8888222288882222 -- patterns[4]: 0x88AA22AA88AA22AA -- patterns[5]: 0xCCAA33AACCAA33AA -- patterns[6]: 0xEEAABBAAEEAABBAA -- patterns[7]: 0xEEBBBBEEEEBBBBEE -- patterns[8]: 0xFFBBFFEEFFBBFFEE -- patterns[9]: 0xFFBBFFFFFFBBFFFF -- patterns[10]: 0x8010022001084004 -- patterns[11]: 0xFFFFFFFFFFFFFFFF -- patterns[12]: 0x8822882288228822 -- patterns[13]: 0x1122448811224488 -- patterns[14]: 0xC4800C6843023026 -- patterns[15]: 0xB130031BD8C00C8D -- patterns[16]: 0xAA00AA00AA00AA00 -- patterns[17]: 0x8822552288225522 -- patterns[18]: 0x8855225588552255 -- patterns[19]: 0x77DD77DD77DD77DD -- patterns[20]: 0x8000000000000000 -- patterns[21]: 0xAA55AA55AA55AA55 -- patterns[22]: 0x038448300C020101 -- patterns[23]: 0x8244394482010101 -- patterns[24]: 0x8814224188412214 -- patterns[25]: 0x8080413E080814E3 -- patterns[26]: 0x22048C7422179810 -- patterns[27]: 0xBE808808EB088880 -- patterns[28]: 0x25C8328964244C92 -- patterns[29]: 0xA29C41BE2AC914EB -- patterns[30]: 0x40A00000040A0000 -- patterns[31]: 0x8040200002040800 -- patterns[32]: 0xAA00800088008000 -- patterns[33]: 0xFF80808080808080 -- patterns[34]: 0x081C22C180010204 -- patterns[35]: 0xFF808080FF080808 -- patterns[36]: 0xF87422478F172271 -- patterns[37]: 0xBF00BFBFB0B0B0B0 -- patterns[38]: 0xFF7FBE5DA2418000 -- patterns[39]: 0xFAF5FAF5A050A050 -- checksum: 0x0 ----- HyperTalk script ----- on closeStack global whosThere put "Have Yourself a SUPER GOOD DAY" && whosThere && "!" into message box doMenu "Compact Stack" RemShow Meo show menubar hide message box visual effect zoom out end closeStack on update theDate global whosThere ask "What is your name, Please?" with field id 26 put it into field id 26 put it into whosThere put the long date into field id 5 of card id 3049 theSchedule schedule end update on theSchedule schedule set cursor to 4 put empty into field id 6 put empty into field id 7 put empty into field id 8 put empty into field id 9 put empty into field id 10 put empty into field id 11 put empty into field id 12 put empty into field id 13 put empty into field id 14 put empty into field id 15 put empty into field id 16 put empty into field id 17 put empty into field id 30 --field "Links" is a hidden field get field id 5 convert it to seconds put it into thisDay put 1 into lineNumber repeat with x = 2 to (the number of cards) get (field id 2 of card x) --field "Date" if it is empty then next repeat convert it to seconds if it = thisDay then put (the id of card x) into line lineNumber of field "Links" add 1 to lineNumber get field id 47 of card x --field "My Name" if it = field id 26 of card id 3049 then get field id 43 of card x --field "Appointment Time" put it into apptTime get field id 1 of card x --field "ClientName" put it into temp2 put the number of chars of temp2 into countChar put 34 into maxChar subtract countChar from maxChar get field id 6 of card x --field "ApptDetails" put it into temp3 put "," after char maxChar of temp3 get the number of items of temp3 put empty into item 2 to it of temp3 put empty into last char of temp3 get apptTime --a variable holding the appointment time. if it ΓëÑ 0900 and it Γëñ 0914 or it ΓëÑ 900 and it Γëñ 914 or it = 9 then put temp2 & "ΓÇö" & temp3 into line 1 of field id 6 else if it ΓëÑ 0915 and it Γëñ 0929 or it ΓëÑ 915 and it Γëñ 929 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 6 else if it ΓëÑ 0930 and it Γëñ 0944 or it ΓëÑ 930 and it Γëñ 944 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 6 else if it ΓëÑ 0945 and it Γëñ 0959 or it ΓëÑ 945 and it Γëñ 959 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 6 else if it ΓëÑ 1000 and it Γëñ 1014 or it = 10 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 7 else if it ΓëÑ 1015 and it Γëñ 1029 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 7 else if it ΓëÑ 1030 and it Γëñ 1044 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 7 else if it ΓëÑ 1045 and it Γëñ 1059 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 7 else if it ΓëÑ 1100 and it Γëñ 1114 or it = 11 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 8 else if it ΓëÑ 1115 and it Γëñ 1129 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 8 else if it ΓëÑ 1130 and it Γëñ 1144 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 8 else if it ΓëÑ 1145 and it Γëñ 1159 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 8 else if it ΓëÑ 1200 and it Γëñ 1214 or it = 12 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 9 else if it ΓëÑ 1215 and it Γëñ 1229 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 9 else if it ΓëÑ 1230 and it Γëñ 1244 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 9 else if it ΓëÑ 1245 and it Γëñ 1259 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 9 else if it ΓëÑ 100 and it Γëñ 114 or it ΓëÑ 1300 and it Γëñ 1314 or it = 1 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 10 else if it ΓëÑ 115 and it Γëñ 129 or it ΓëÑ 1315 and it Γëñ 1329 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 10 else if it ΓëÑ 130 and it Γëñ 144 or it ΓëÑ 1330 and it Γëñ 1344 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 10 else if it ΓëÑ 145 and it Γëñ 159 or it ΓëÑ 1345 and it Γëñ 1359 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 10 else if it ΓëÑ 200 and it Γëñ 214 or it ΓëÑ 1400 and it Γëñ 1414 or it = 2 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 11 else if it ΓëÑ 215 and it Γëñ 229 or it ΓëÑ 1415 and it Γëñ 1429 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 11 else if it ΓëÑ 230 and it Γëñ 244 or it ΓëÑ 1430 and it Γëñ 1444 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 11 else if it ΓëÑ 245 and it Γëñ 259 or it ΓëÑ 1445 and it Γëñ 1459 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 11 else if it ΓëÑ 300 and it Γëñ 314 or it ΓëÑ 1500 and it Γëñ 1514 or it = 3 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 12 else if it ΓëÑ 315 and it Γëñ 329 or it ΓëÑ 1515 and it Γëñ 1529 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 12 else if it ΓëÑ 330 and it Γëñ 344 or it ΓëÑ 1530 and it Γëñ 1544 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 12 else if it ΓëÑ 345 and it Γëñ 359 or it ΓëÑ 1545 and it Γëñ 1559 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 12 else if it ΓëÑ 400 and it Γëñ 414 or it ΓëÑ 1600 and it Γëñ 1614 or it = 4 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 13 else if it ΓëÑ 415 and it Γëñ 429 or it ΓëÑ 1615 and it Γëñ 1629 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 13 else if it ΓëÑ 430 and it Γëñ 444 or it ΓëÑ 1630 and it Γëñ 1644 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 13 else if it ΓëÑ 445 and it Γëñ 459 or it ΓëÑ 1645 and it Γëñ 1659 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 13 else if it ΓëÑ 500 and it Γëñ 514 or it ΓëÑ 1700 and it Γëñ 1714 or it = 5 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 14 else if it ΓëÑ 515 and it Γëñ 529 or it ΓëÑ 1715 and it Γëñ 1729 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 14 else if it ΓëÑ 530 and it Γëñ 544 or it ΓëÑ 1730 and it Γëñ 1744 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 14 else if it ΓëÑ 545 and it Γëñ 559 or it ΓëÑ 1745 and it Γëñ 1759 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 14 else if it ΓëÑ 600 and it Γëñ 614 or it ΓëÑ 1800 and it Γëñ 1814 or it = 6 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 15 else if it ΓëÑ 615 and it Γëñ 629 or it ΓëÑ 1815 and it Γëñ 1829 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 15 else if it ΓëÑ 630 and it Γëñ 644 or it ΓëÑ 1830 and it Γëñ 1844 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 15 else if it ΓëÑ 645 and it Γëñ 659 or it ΓëÑ 1845 and it Γëñ 1859 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 15 else if it ΓëÑ 700 and it Γëñ 714 or it ΓëÑ 1900 and it Γëñ 1914 or it = 7 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 16 else if it ΓëÑ 715 and it Γëñ 729 or it ΓëÑ 1915 and it Γëñ 1929 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 16 else if it ΓëÑ 730 and it Γëñ 744 or it ΓëÑ 1930 and it Γëñ 1944 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 16 else if it ΓëÑ 745 and it Γëñ 759 or it ΓëÑ 1945 and it Γëñ 1959 then put temp2 &&"ΓÇö" & temp3 into line 4 of field id 16 else if it ΓëÑ 800 and it Γëñ 814 or it ΓëÑ 2000 and it Γëñ 2014 or it = 8 then put temp2 && "ΓÇö" & temp3 into line 1 of field id 17 else if it ΓëÑ 815 and it Γëñ 829 or it ΓëÑ 2015 and it Γëñ 2029 then put temp2 && "ΓÇö" & temp3 into line 2 of field id 17 else if it ΓëÑ 830 and it Γëñ 844 or it ΓëÑ 2030 and it Γëñ 2044 then put temp2 && "ΓÇö" & temp3 into line 3 of field id 17 else if it ΓëÑ 845 and it Γëñ 859 or it ΓëÑ 2045 and it Γëñ 2059 then put temp2 && "ΓÇö" & temp3 into line 4 of field id 17 end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end repeat end theSchedule on RemShow Meo get the date convert it to dateItems if item 3 of it = 1 or item 3 of it =15 then beep 2 put "Paid your SHAREWARE FEE yet ? If SoΓÇöTHANKS! If No ΓÇö PLEASE DO" wait 5 seconds play boing hide message box end if end RemShow on openStack visual zoom in hide menubar hide message box show field id 25 --Copyright field-DO NOT REMOVE update theDate RemShow Meo end openStack